home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 033a / truebaud.lzh / RSB4BAUD.MRG
Text File  |  1991-08-26  |  1KB  |  42 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB4.BAS to produce RBBSSUB4.BAS
  3. * RBBSSUB4.BAS:  Date 10-28-1990  Size 129591 bytes
  4. * ------------[ Created 04-12-1991 00:14:16 ]------------
  5. *
  6. * Merge to add the Meta Command BPSR to be used in the following
  7. * manner
  8. *
  9. * DSZ port [PORT#] speed [BAUD] estimate 0 [BPSR] ha on sz -r [FILE
  10. *
  11. * RBBS will substitute the variable [BPSR] with the actual modem speed.
  12. *
  13. * Dave West 06/09/91
  14. * The Info Exchange RBBS
  15. * 412/482-4721
  16. * 1:129/201 1:129/202 8:952/12 8:952/121 31:4044/201 31:4044/202
  17. *
  18. * REPLACING old line(s) by new
  19. 60135 MetaVal$ = MID$(Strng$,WasX+1,WasY-WasX-1)
  20. * ------[ first line different ]------
  21.       WasI = INSTR("      BAUD  PORT  PORT# PARITYPROTO NODE  FILE  BPSR  ",MetaVal$)
  22.       IF WasI = 0 OR LEN(MetaVal$) < 4 THEN _
  23.          WasY = WasX + 1 : _
  24.          GOTO 60131
  25.       WasJ = (WasI-1)\6 + 1
  26.       WasK = (WasI+4)\6 + 1
  27.       IF WasK > WasJ THEN _
  28.          EXIT SUB
  29.       ON WasJ GOTO 60155, _
  30.                 60137, _
  31.                 60139, _
  32.                 60141, _
  33.                 60143, _
  34.                 60145, _
  35.                 60147, _
  36.                 60149, _
  37.                 60150, _
  38.                 60151
  39. * INSERTING new line(s)
  40. 60150 WorkHold$ = MID$(ZBaudParity$,1,INSTR(ZBaudParity$,"BPS")-2)
  41.       GOTO 60151
  42.